---
title: "AirQ_Dashboard"
output:
flexdashboard::flex_dashboard:
vertical_layout: scroll
theme: yeti
source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(DT)
```
```{r}
# data kabupaten kota di Indonesia
dt_kabko <- read.csv2("https://raw.githubusercontent.com/dsciencelabs/dataset/master/kabko_id.csv")
# data dummy kualitas udara di kabko
n_kabko <- nrow(dt_kabko) # banyaknya kabupaten kota
CO <- rnorm(n_kabko, mean = 5, sd = 2) # CO (karbon monoksida)
CO2<- rnorm(n_kabko, mean = 30, sd = 10) # NO2 (nitrogen oksida)
H2 <- rnorm(n_kabko, mean = 10, sd = 2) # H2 (Nitrogen)
# Buat data frame kualitas udara harian
data <- data.frame(dt_kabko, CO, CO2, H2)
```
Data {data-orientation=rows}
=======================================================================
### Kualitas Udara Indonesia {data-height=520}
```{r}
datatable(data,
options=list(scrollX=TRUE),
caption = htmltools::tags$caption(
style = 'caption-side: bottom; text-align: center;',
'Table: ', htmltools::em('Kualitas Udara Indonesia')
))
```
Map {data-orientation=rows}
=======================================================================
### Kualitas Udara Indonesia {data-height=520}
```{r}
library(plotly)
# Buat peta Plotly
map <- data %>%
plot_ly(
x = ~long,
y = ~lat,
type = "scattermapbox",
mode = "markers",
text = ~paste("Kabupaten Kota: ", kabko, "<br>CO: ", CO),
marker = list(size = 7, color = ~CO)
) %>%
layout(
mapbox = list(
center = list(lat = -2, lon = 118),
zoom = 4,
style = "open-street-map"
),
title = "Kualitas Udara di Indonesia",
geo = list(
scope = "asia",
showland = TRUE
)
)
map
```